#!/usr/bin/perl
#file:	hc_linux_load_average
#time:	2008.09
#author: joecen
#site:  http://www.joecen.com/hcacti

open(o_loadproc,"/proc/loadavg") || die "error: can't open /proc/loadavg";
my @W = split(/\s+/,<o_loadproc>);
close(o_loadproc);

print "w1=".$W[0].",w5=".$W[1].",w15=".$W[2];
